dBASE code for PESetFont

You can use code similar to the following to set the font for a section of your report using PESetFont:

LOCAL SectionCode, ScopeCode, FaceName, FontFamily
LOCAL FontPitch, CharSet, PointSize, IsItalic
LOCAL IsUnderline, IsStrikeOut, Weight
SectionCode = PE_ALLSECTIONS        && Apply to all sections
ScopeCode = PE_FIELDS            && Apply to fields
FaceName = "Courier"
FontFamily = 0                && FF_DONTCARE
FontPitch = 0                && DEFAULT_PITCH
CharSet = 1                && DEFAULT_CHARSET
PointSize = 12
IsItalic = 0
IsUnderline = 0
IsStrikeOut = 0
Weight = 0
IF PESetFont (Job, SectionCode, ScopeCode, FaceName, FontFamily,;
    FontPitch, CharSet, PointSize, IsItalic, IsUnderline,;
    IsStrikeOut, Weight) = .F.
    && Handle error
ENDIF


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com